home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / flilib.zip / FLISRC.ZIP / WAITNVBL.ASM < prev    next >
Assembly Source File  |  1989-11-10  |  276b  |  20 lines
  1.  
  2.  
  3. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  4.     ASSUME  CS: _TEXT 
  5.  
  6.     ;busy-wait for out of vblank
  7.     public _aa_wait_no_vblank
  8. _aa_wait_no_vblank proc far
  9.     mov    dx,3dah    ;video status port
  10. wnvb:
  11.     in    al,dx
  12.     test al,8
  13.     jnz wnvb
  14.     ret
  15. _aa_wait_no_vblank endp
  16.  
  17.  
  18. _TEXT    ENDS
  19. END
  20.